home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 10 / developer source - volume 10.iso / delpp / fig4-20.gif < prev    next >
Graphics Interchange Format  |  1996-11-19  |  38KB  |  640x480  |  4-bit (14 colors)
Labels: text | screenshot | display | software | number | parallel
OCR: fint Delphi 2.0 Strings X File Edit Search View Project Run Component Database Workgroups Tools Help Standard Additional Win95 Dialogs System Data Access Data Controls A .***. abI OK x A Form3 Object Inspector x LT rimBtn: TButton STRINGSF.PAS Properties Events Stringsf Cancel False {Set delimiter True so the first character Caption &LT rim will be capitalized. } Curso crDefault delimiter := True; Default True {Loop through the string. } DragCursor crDrag for i := 1 to Length(s) do DragMode dmManual {If this character is a delimiter set Enabled True delimiter to True. } +Font (TFont) if s[i] in [' ', #9] then Height 29 delimiter := True HelpContext else Hint {This character is not a delimiter so Lef 68 see if it needs its case changed. } ModalResult mrNone if delimiter then Name LT rimBtn 87: 1 Insert Start E. Borland Delph ... Writing By Microsoft Wor ... Delphi32